home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
delqhstx.arc
/
CLPQHST.CLP
next >
Wrap
Text File
|
1991-12-04
|
3KB
|
50 lines
/*****************************************************************/
/* */
/* This clp will delete qhst files that are older than 7 days. */
/* Files are in QSYS format: QHSTyydddA */
/* */
/* Where */
/* yy = Current Year */
/* ddd= Current Day In Year */
/* A = Alphabetic suffix (A,B,C, etc...) */
/* */
/* The file names are retreived from QHSTFIL.QGPL which is */
/* created using a DSPOBJD command. This program reads the file */
/* and compares the file date (yyddd) to current julian date to */
/* determine whether or not to delete the file. */
/* */
/*****************************************************************/
PGM
DCLF FILE(QHSTFIL.QGPL) RCDFMT(QLIDOBJD)
DCL VAR(&ODLBNM) TYPE(*CHAR) LEN(10)
DCL VAR(&ODOBNM) TYPE(*CHAR) LEN(10)
DCL VAR(&CURDTE) TYPE(*CHAR) LEN(6)
DCL VAR(&JULDTE) TYPE(*CHAR) LEN(5)
DCL VAR(&CYR) TYPE(*DEC) LEN(2 0)
DCL VAR(&FYR) TYPE(*DEC) LEN(2 0)
DCL VAR(&CJUL) TYPE(*DEC) LEN(3 0)
DCL VAR(&FJUL) TYPE(*DEC) LEN(3 0)
DCL VAR(&HOWOLD) TYPE(*DEC) LEN(3 0)
RTVSYSVAL SYSVAL(QDATE) RTNVAR(&CURDTE)
CVTDAT DATE(&CURDTE) TOVAR(&JULDTE) FROMFMT(*MDY) +
TOFMT(*JUL) TOSEP(*NONE)
READF:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDCLPGM))
CHGVAR VAR(&CYR) VALUE(%SST(&CURDTE 5 2))
CHGVAR VAR(&FYR) VALUE(%SST(&ODOBNM 5 2))
CHGVAR VAR(&FJUL) VALUE(%SST(&ODOBNM 7 3))
CHGVAR VAR(&CJUL) VALUE(%SST(&JULDTE 3 3))
IF (&CYR *NE &FYR) THEN(DO)
CHGVAR VAR(&CJUL) VALUE(&CJUL + 365)
ENDDO
CHGVAR VAR(&HOWOLD) VALUE(&CJUL - &FJUL)
IF (&HOWOLD *GT 7) THEN(DO)
DLTF &ODOBNM.&ODLBNM
ENDDO
GOTO READF
ENDCLPGM: ENDPGM